home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 06-01.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  1.2 KB  |  53 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.   area                    : integer;
  6.   color, old_color        : integer;
  7.   left                    : integer;
  8.   max_color, max_x, max_y : integer;
  9.   mode                    : integer;
  10.   new_mode, old_mode      : integer;
  11.   x, y                    : integer;
  12.  
  13. begin
  14.   old_mode := fg_getmode;
  15.   new_mode := fg_automode;
  16.   fg_setmode(new_mode);
  17.  
  18.   if (new_mode = 4) then
  19.     max_color := 3
  20.   else if ((new_mode = 11) or (new_mode = 17)) then
  21.     max_color := 1
  22.   else if (new_mode = 19) then
  23.     max_color := 255
  24.   else
  25.     max_color := 15;
  26.  
  27.   left := 100;
  28.   max_x := fg_getmaxx - 1;
  29.   max_y := fg_getmaxy - 1;
  30.  
  31.   while (left > 0) do
  32.   begin
  33.     x := random(max_x) + 1;
  34.     y := random(max_y) + 1;
  35.  
  36.     area := fg_getpixel(x-1,y-1) + fg_getpixel(x,y-1) + fg_getpixel(x+1,y-1)
  37.           + fg_getpixel(x-1,y)   + fg_getpixel(x,y)   + fg_getpixel(x+1,y)
  38.           + fg_getpixel(x-1,y+1) + fg_getpixel(x,y+1) + fg_getpixel(x+1,y+1);
  39.  
  40.     if (area = 0) then
  41.     begin
  42.       color := random(max_color) + 1;
  43.       fg_setcolor(color);
  44.       fg_point(x,y);
  45.       dec(left);
  46.     end;
  47.   end;
  48.   fg_waitkey;
  49.  
  50.   fg_setmode(old_mode);
  51.   fg_reset;
  52. end.
  53.